home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / langs / gemfsc18.lzh / AESSRC18.LZH / AESUTIL.S / RCGTOV.S < prev    next >
Encoding:
Text File  |  1992-03-15  |  768 b   |  32 lines
  1. ;*************************************************************************
  2. ;* RCGTOV.S - Convert GRECT to VRECT.
  3. ;*************************************************************************
  4.  
  5. _rc_gtov::
  6.  
  7.           .cargs    #4,.pgrect.l,.pvrect.l
  8.           
  9.           move.l    .pgrect(sp),a0
  10.           move.l    .pvrect(sp),a1
  11.           move.l    a1,d0               ; return pvrect
  12.           
  13.           move.w    (a0)+,d1
  14.           move.w    d1,(a1)+
  15.  
  16.           move.w    (a0)+,d2
  17.           move.w    d2,(a1)+
  18.  
  19.           add.w     (a0)+,d1
  20.           subq.w    #1,d1
  21.           move.w    d1,(a1)+
  22.  
  23.           add.w     (a0),d2
  24.           subq.w    #1,d2
  25.           move.w    d2,(a1)
  26.           
  27.           rts
  28.           
  29. ;         end of code
  30.  
  31.  
  32.